#!
#@boys = qw{Tom,John,Harry,Jun}
$_ = "bog!";

if (m /(fr|b|d)og/)
{
	print "found in \"$_\"!\n";
}
else
{
	print "not found in \"$_\"!";
}
